home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Prog / T / Think-Pascal-7.0.cpt / THINK Pascal Interfaces / Packages.p < prev    next >
Encoding:
Text File  |  1991-04-03  |  2.9 KB  |  92 lines  |  [TEXT/PJMM]
  1. {    This file has been processed by The THINK Pascal Source Converter, v1.1.    }
  2.  
  3. {}
  4. {Created: Friday, January 25, 1991 at 11:34 AM}
  5. {    Packages.p}
  6. {    Pascal Interface to the Macintosh Libraries}
  7. {}
  8. {        Copyright Apple Computer, Inc.    1985-1990}
  9. {        All rights reserved}
  10. {}
  11.  
  12.  
  13.  
  14. {    RMS    4/3/91        Modified to exclude declarations already in the THINK Pascal built-in interfaces    }
  15.  
  16.  
  17.  
  18. unit Packages;
  19. interface
  20.     uses
  21.         Types, Script;
  22.  
  23.     const
  24.         editionMgr = 11;                            {Edition Manager}
  25.  
  26.         verIndiaHindi = 33;                         { Hindi system for India }
  27.         verPakistan = 34;
  28.         verLithuania = 41;
  29.         verPoland = 42;
  30.         verHungary = 43;
  31.         verEstonia = 44;
  32.         verLatvia = 45;
  33.         verLapland = 46;
  34.         verFaeroeIsl = 47;
  35.         verIran = 48;
  36.         verRussia = 49;
  37.  
  38.         minCountry = verUS;
  39.         maxCountry = verThailand;
  40.  
  41. {special ScriptCode values}
  42.         iuSystemScript = -1;                        { system script }
  43.         iuCurrentScript = -2;                       { current script }
  44.  
  45. {special LangCode values}
  46.         iuSystemCurLang = -2;                       { current (itlbLang) lang for system script }
  47.         iuSystemDefLang = -3;                       { default (table) lang for system script }
  48.         iuCurrentCurLang = -4;                      { current (itlbLang) lang for current script }
  49.         iuCurrentDefLang = -5;                      { default lang for current script }
  50.         iuScriptCurLang = -6;                       { current (itlbLang) lang for specified script }
  51.         iuScriptDefLang = -7;                       { default language for a specified script }
  52.  
  53. {table selectors for IUGetItlTable}
  54.         iuWordSelectTable = 0;
  55.         iuWordWrapTable = 1;
  56.         iuNumberPartsTable = 2;
  57.         iuUnTokenTable = 3;
  58.         iuWhiteSpaceList = 4;
  59.  
  60.     procedure IUClearCache;
  61.     inline
  62.         $3F3C, $0018, $A9ED;
  63.     function IUMagPString (aPtr: Ptr; bPtr: Ptr; aLen: INTEGER; bLen: INTEGER; itl2Handle: Handle): INTEGER;
  64.     inline
  65.         $3F3C, $001A, $A9ED;
  66.     function IUMagIDPString (aPtr: Ptr; bPtr: Ptr; aLen: INTEGER; bLen: INTEGER; itl2Handle: Handle): INTEGER;
  67.     inline
  68.         $3F3C, $001C, $A9ED;
  69.     function IUCompPString (aStr: Str255; bStr: Str255; itl2Handle: Handle): INTEGER;
  70.     function IUEqualPString (aStr: Str255; bStr: Str255; itl2Handle: Handle): INTEGER;
  71.     function IUScriptOrder (script1: ScriptCode; script2: ScriptCode): INTEGER;
  72.     inline
  73.         $3F3C, $001E, $A9ED;
  74.     function IULangOrder (language1: LangCode; language2: LangCode): INTEGER;
  75.     inline
  76.         $3F3C, $0020, $A9ED;
  77.     function IUTextOrder (aPtr: Ptr; bPtr: Ptr; aLen: INTEGER; bLen: INTEGER; aScript: ScriptCode; bScript: ScriptCode; aLang: LangCode; bLang: LangCode): INTEGER;
  78.     inline
  79.         $3F3C, $0022, $A9ED;
  80.     function IUStringOrder (aStr: Str255; bStr: Str255; aScript: ScriptCode; bScript: ScriptCode; aLang: LangCode; bLang: LangCode): INTEGER;
  81.     procedure IUGetItlTable (script: ScriptCode; tableCode: INTEGER; var itlHandle: Handle; var offset: LONGINT; var length: LONGINT);
  82.     inline
  83.         $3F3C, $0024, $A9ED;
  84.  
  85.  
  86.     { UsingPackages }
  87.  
  88.  
  89. implementation
  90. end.
  91.  
  92.